home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / ASDebugging.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  6.0 KB  |  135 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        ASDebugging.mod
  3.  
  4.      Contains:    AppleScript Debugging Interfaces.
  5.  
  6.      Version:    Technology:    AppleScript 1.1
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE ASDebugging;
  23.  
  24. IMPORT SYSTEM, Files, Components, AppleEvents, OSA;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31. (*     This mode flag can be passed to OSASetProperty or OSASetHandler
  32.         and will prevent properties or handlers from being defined in a context
  33.         that doesn't already have bindings for them. An error is returned if
  34.         a current binding doesn't already exist. *)
  35.     kOSAModeDontDefine*            = $0001;
  36.  
  37. (**************************************************************************
  38.     Components.Component Selectors
  39. **************************************************************************)
  40.     kASSelectSetPropertyObsolete* = $1101;
  41.     kASSelectGetPropertyObsolete* = $1101;
  42.     kASSelectSetHandlerObsolete*    = $1103;
  43.     kASSelectGetHandlerObsolete*    = $1104;
  44.     kASSelectGetAppTerminologyObsolete* = $1105;
  45.     kASSelectSetProperty*        = $1106;
  46.     kASSelectGetProperty*        = $1107;
  47.     kASSelectSetHandler*            = $1108;
  48.     kASSelectGetHandler*            = $1109;
  49.     kASSelectGetAppTerminology*    = $110A;
  50.     kASSelectGetSysTerminology*    = $110B;
  51.     kASSelectGetPropertyNames*    = $110C;
  52.     kASSelectGetHandlerNames*    = $110D;
  53.  
  54. (**************************************************************************
  55.     Context Accessors
  56. **************************************************************************)
  57.  
  58. PROCEDURE OSASetProperty*(scriptingComponent: Components.ComponentInstance; modeFlags: LONGINT; contextID: OSA.OSAID; (*CONST*)VAR variableName: AppleEvents.AEDesc; scriptValueID: OSA.OSAID): OSA.OSAError;
  59.     (*$IF NOT GENERATINGCFM*)
  60.     INLINE PASCAL $2F3C, 16, $1106, $7000, $A82A;
  61.     (*$END*)
  62. PROCEDURE OSAGetProperty*(scriptingComponent: Components.ComponentInstance; modeFlags: LONGINT; contextID: OSA.OSAID; (*CONST*)VAR variableName: AppleEvents.AEDesc; VAR resultingScriptValueID: OSA.OSAID): OSA.OSAError;
  63.     (*$IF NOT GENERATINGCFM*)
  64.     INLINE PASCAL $2F3C, 16, $1107, $7000, $A82A;
  65.     (*$END*)
  66. PROCEDURE OSAGetPropertyNames*(scriptingComponent: Components.ComponentInstance; modeFlags: LONGINT; contextID: OSA.OSAID; VAR resultingPropertyNames: AppleEvents.AEDescList): OSA.OSAError;
  67.     (*$IF NOT GENERATINGCFM*)
  68.     INLINE PASCAL $2F3C, 12, $110C, $7000, $A82A;
  69.     (*$END*)
  70. PROCEDURE OSASetHandler*(scriptingComponent: Components.ComponentInstance; modeFlags: LONGINT; contextID: OSA.OSAID; (*CONST*)VAR handlerName: AppleEvents.AEDesc; compiledScriptID: OSA.OSAID): OSA.OSAError;
  71.     (*$IF NOT GENERATINGCFM*)
  72.     INLINE PASCAL $2F3C, 16, $1108, $7000, $A82A;
  73.     (*$END*)
  74. PROCEDURE OSAGetHandler*(scriptingComponent: Components.ComponentInstance; modeFlags: LONGINT; contextID: OSA.OSAID; (*CONST*)VAR handlerName: AppleEvents.AEDesc; VAR resultingCompiledScriptID: OSA.OSAID): OSA.OSAError;
  75.     (*$IF NOT GENERATINGCFM*)
  76.     INLINE PASCAL $2F3C, 16, $1109, $7000, $A82A;
  77.     (*$END*)
  78. PROCEDURE OSAGetHandlerNames*(scriptingComponent: Components.ComponentInstance; modeFlags: LONGINT; contextID: OSA.OSAID; VAR resultingHandlerNames: AppleEvents.AEDescList): OSA.OSAError;
  79.     (*$IF NOT GENERATINGCFM*)
  80.     INLINE PASCAL $2F3C, 12, $110D, $7000, $A82A;
  81.     (*$END*)
  82. PROCEDURE OSAGetAppTerminology*(scriptingComponent: Components.ComponentInstance; modeFlags: LONGINT; VAR fileSpec: Files.FSSpec; terminologyID: INTEGER; VAR didLaunch: BOOLEAN; VAR terminologyList: AppleEvents.AEDesc): OSA.OSAError;
  83.     (*$IF NOT GENERATINGCFM*)
  84.     INLINE PASCAL $2F3C, 18, $110A, $7000, $A82A;
  85.     (*$END*)
  86. (* Errors:
  87.        errOSASystemError        operation failed
  88.     *)
  89. PROCEDURE OSAGetSysTerminology*(scriptingComponent: Components.ComponentInstance; modeFlags: LONGINT; terminologyID: INTEGER; VAR terminologyList: AppleEvents.AEDesc): OSA.OSAError;
  90.     (*$IF NOT GENERATINGCFM*)
  91.     INLINE PASCAL $2F3C, 10, $110B, $7000, $A82A;
  92.     (*$END*)
  93. (* Errors:
  94.        errOSASystemError        operation failed
  95.     *)
  96. (* Notes on terminology AIFF.ID
  97.  
  98.     A terminology AIFF.ID is derived from script code and language code
  99.     as follows;
  100.  
  101.         terminologyID* = ((scriptCode & 0x7F) << 8) | (langCode & 0xFF)
  102. *)
  103. (**************************************************************************
  104.     Obsolete versions provided for backward compatibility:
  105. *)
  106. PROCEDURE ASSetProperty*(scriptingComponent: Components.ComponentInstance; contextID: OSA.OSAID; (*CONST*)VAR variableName: AppleEvents.AEDesc; scriptValueID: OSA.OSAID): OSA.OSAError;
  107.     (*$IF NOT GENERATINGCFM*)
  108.     INLINE PASCAL $2F3C, 12, $1101, $7000, $A82A;
  109.     (*$END*)
  110. PROCEDURE ASGetProperty*(scriptingComponent: Components.ComponentInstance; contextID: OSA.OSAID; (*CONST*)VAR variableName: AppleEvents.AEDesc; VAR resultingScriptValueID: OSA.OSAID): OSA.OSAError;
  111.     (*$IF NOT GENERATINGCFM*)
  112.     INLINE PASCAL $2F3C, 12, $1101, $7000, $A82A;
  113.     (*$END*)
  114. PROCEDURE ASSetHandler*(scriptingComponent: Components.ComponentInstance; contextID: OSA.OSAID; (*CONST*)VAR handlerName: AppleEvents.AEDesc; compiledScriptID: OSA.OSAID): OSA.OSAError;
  115.     (*$IF NOT GENERATINGCFM*)
  116.     INLINE PASCAL $2F3C, 12, $1103, $7000, $A82A;
  117.     (*$END*)
  118. PROCEDURE ASGetHandler*(scriptingComponent: Components.ComponentInstance; contextID: OSA.OSAID; (*CONST*)VAR handlerName: AppleEvents.AEDesc; VAR resultingCompiledScriptID: OSA.OSAID): OSA.OSAError;
  119.     (*$IF NOT GENERATINGCFM*)
  120.     INLINE PASCAL $2F3C, 12, $1104, $7000, $A82A;
  121.     (*$END*)
  122. PROCEDURE ASGetAppTerminology*(scriptingComponent: Components.ComponentInstance; VAR fileSpec: Files.FSSpec; terminologID: INTEGER; VAR didLaunch: BOOLEAN; VAR terminologyList: AppleEvents.AEDesc): OSA.OSAError;
  123.     (*$IF NOT GENERATINGCFM*)
  124.     INLINE PASCAL $2F3C, 14, $1105, $7000, $A82A;
  125.     (*$END*)
  126. (* Errors:
  127.         errOSASystemError        operation failed
  128.     *)
  129. (**************************************************************************)
  130.  
  131. (* $ALIGN RESET*)
  132. (* $POP*)
  133.  
  134.  END ASDebugging.
  135.